home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 48 / PC Gamer IT CD 48 2-2.iso / Starsiege / tribesdemo.exe / Disk1 / data1.cab / Tribes_Demo / base / scripts.vol / GUI.CS < prev    next >
Encoding:
Text File  |  1999-09-14  |  19.6 KB  |  793 lines
  1. //------------------------------------
  2. //
  3. // Game/network functions
  4. //
  5. //------------------------------------
  6.  
  7. function selectNewMaster()
  8. {
  9.    translateMasters();
  10. }
  11.  
  12. function checkMasterTranslation()
  13. {
  14.    for(%i = 0; %i < $Server::numMasters; %i++)
  15.    {
  16.       %mstr = DNet::getResolvedMaster(%i);
  17.       if(%mstr != "")
  18.          $Server::XLMasterN[%i] = %mstr;
  19.       $inet::master[%i+1] = $Server::XLMasterN[%i];
  20.    }
  21. }
  22.  
  23. function translateMasters()
  24. {
  25.    for(%i = 0; (%word = getWord($Server::MasterAddressN[$Server::CurrentMaster], %i)) != -1; %i++)
  26.       %mlist[%i] = %word;
  27.  
  28.    $Server::numMasters = DNet::resolveMasters(%mlist0, %mlist1, %mlist2, %mlist3, %mlist4, %mlist5, %mlist6, %mlist7, %mlist8, %mlist9);
  29. }
  30.  
  31. function QuickStart()
  32. {
  33.     $ConnectedToServer = FALSE;
  34.    setCursor(MainWindow, "Cur_Arrow.bmp");
  35.     cursorOn(MainWindow);
  36.     $QuickStart = TRUE;
  37.     if ($PlayingDemo)
  38.     {
  39.         $PlayingDemo = FALSE;
  40.         GuiLoadContentCtrl(MainWindow, "gui\\Recordings.gui");
  41.     }
  42.     else if ($PCFG::Name == "")
  43.        GuiLoadContentCtrl(MainWindow, "gui\\PlayerSetup.gui");
  44.     else if ($pref::PlayGameMode == "")
  45.        GuiLoadContentCtrl(MainWindow, "gui\\Connect.gui");
  46.     else if ($Pref::PlayGameMode == "JOIN")
  47.        GuiLoadContentCtrl(MainWindow, "gui\\JoinGame.gui");
  48.     else if ($pref::PlayGameMode == "TRAIN")
  49.        GuiLoadContentCtrl(MainWindow, "gui\\training.gui");
  50.     else
  51.        GuiLoadContentCtrl(MainWindow, "gui\\CreateServer.gui");
  52. }
  53.  
  54. function PlayerSetupNext()
  55. {
  56.     if ($QuickStart == "TRUE")
  57.         QuickStart();
  58.     else
  59.     {
  60.         if ($PCFG::Name == "")
  61.             OpenNewPlayerDialog();
  62.         else
  63.            GuiLoadContentCtrl(MainWindow, "gui\\Connect.gui");
  64.     }
  65. }
  66.  
  67. function JoinGame()
  68. {
  69.     if ($IRC::DisconnectInSim == "")
  70.         $IRC::DisconnectInSim = true;
  71.  
  72.     //disconnect from IRC if req'd
  73.     if ($IRC::DisconnectInSim == true)
  74.     {
  75.         ircDisconnect();
  76.         $IRCConnected = FALSE;
  77.         $IRCJoinedRoom = FALSE;
  78.     }
  79.     //load the "connecting" gui
  80.     GuiLoadContentCtrl(MainWindow, "gui\\Connecting.gui");
  81.  
  82.    $SinglePlayer = False;
  83.    purgeResources();
  84.    connect($Server::Address);
  85. }
  86.  
  87. function EndGame()
  88. {
  89.     $ConnectedToServer = FALSE;
  90.    setCursor(MainWindow, "Cur_Arrow.bmp");
  91.    disconnect();
  92.    if ($SinglePlayer)
  93.        TrainingEndGameCallback();
  94.  
  95.     if ($pref::userCDOverride == False)
  96.     {
  97.         rbSetPlayMode (CD, 0);
  98.         rbStop (CD);
  99.         $cdTrack = "";
  100.     }
  101.     $recordDemo = FALSE;
  102.    startMainMenuScreen();
  103.    deleteServer();
  104.     QuickStart();
  105.    deleteObject(ConsoleScheduler);
  106.    newObject(ConsoleScheduler, SimConsoleScheduler);
  107.    if($quitOnDisconnect)
  108.       schedule("quit();", 0);
  109. }
  110.  
  111. function Canvas::handleEscapeKey()
  112. {
  113.     if ($ConnectedToServer && $InLobbyMode)
  114.     {
  115.         Client::exitLobbyMode();
  116.         return "true";
  117.     }
  118.     return "false";
  119. }
  120.  
  121. function startMainMenuScreen()
  122. {
  123.    GuiLoadContentCtrl(MainWindow, "gui\\MainMenu.gui");
  124.  
  125.     if ($pref::userCDOverride == False)
  126.     {
  127.         rbSetPlayMode (CD, 0);
  128.         rbStop (CD);
  129.         $cdPlayMode = 1;
  130.         $cdTrack = 2;
  131.         if ($pref::cdMusic)
  132.             rbPlay (CD, $cdTrack);
  133.     }
  134.     else if ($Override == "")
  135.     {
  136.         $Override = True;
  137.         rbStop (CD);
  138.         rbSetPlayMode (CD, 2);
  139.         rbPlay (CD);
  140.     }
  141.    setCursor(MainWindow, "Cur_Arrow.bmp");
  142.    cursorOn(MainWindow);
  143. }
  144.  
  145. function loadPlayGui()
  146. {
  147.     if (File::FindFirst("play.gui") != "")
  148.         GuiLoadContentCtrl(MainWindow, "play.gui");
  149.     else
  150.         GuiLoadContentCtrl(MainWindow, "gui\\play.gui");
  151. }
  152.  
  153. function switchToChat()
  154. {
  155.     if ($IRCConnected == "TRUE")
  156.         GuiLoadContentCtrl(MainWindow, "gui\\IRCChat.gui");
  157.     else
  158.         GuiLoadContentCtrl(MainWindow, "gui\\IRCLogin.gui");
  159. }
  160.  
  161. //-----------------------------------------------
  162. //
  163. // onExit() is called when the program terminates
  164. //
  165. //-----------------------------------------------
  166.  
  167. function onExit()
  168. {
  169.    if(isObject(playGui))
  170.       storeObject(playGui, "config\\play.gui");
  171.  
  172.    saveActionMap("config\\config.cs", "actionMap.sae", "playMap.sae", "pdaMap.sae");
  173.  
  174.     //update the video mode - since it can be changed with alt-enter
  175.     $pref::VideoFullScreen = isFullScreenMode(MainWindow);
  176.  
  177.    checkMasterTranslation();
  178.     echo("exporting pref::* to prefs.cs");
  179.    export("pref::*", "config\\ClientPrefs.cs", False);
  180.    export("Server::*", "config\\ServerPrefs.cs", False);
  181.    export("pref::lastMission", "config\\ServerPrefs.cs", True);
  182.    BanList::export("config\\banlist.cs");
  183. }
  184.  
  185. //-----------------------------------------------
  186. //
  187. // onQuit() is called when the user clicks the
  188. // in-shell close box
  189. //
  190. //-----------------------------------------------
  191.  
  192. function onQuit()
  193. {
  194.     GuiPushDialog(MainWindow, "gui\\Exit.gui");
  195. }
  196.  
  197. function JoinGameGui::onOpen()
  198. {
  199.    checkMasterTranslation();
  200.     //update the record button
  201.     if (! $recordDemo) $recorderFileName = "";
  202.     Control::setValue(RecordDemo, $recordDemo);
  203. }
  204.  
  205. function CreateServerGui::onOpen()
  206. {
  207.    TextList::clear(MissionTextList);
  208.    FGCombo::clear(MissionTypePopup);
  209.  
  210.    for(%i = 0; %i < $MLIST::TypeCount; %i++)
  211.       if($MLIST::Type[%i] != "Training")
  212.          FGCombo::addEntry(MissionTypePopup, $MLIST::Type[%i], %i);
  213.  
  214.    if($pref::LastMissionType == "" || $pref::LastMissionType >= $MLIST::TypeCount)
  215.       $pref::LastMissionType = 0;
  216.    FGCombo::setSelected(MissionTypePopup, $pref::LastMissionType);
  217.    MissionTypePopup::buildList();
  218.  
  219.     //verify the max number of players as well...
  220.     verifyMaxPlayers();
  221.     
  222.     //DEMOBUILD - don't sort
  223.     //sort the mission text list
  224.     //FGTextList::sort(MissionTextList);
  225.  
  226.     //now set the selected
  227.    MissionTextList::onAction();
  228.  
  229.     //update the record button
  230.     if (! $recordDemo) $recorderFileName = "";
  231.     Control::setValue(RecordDemo, $recordDemo);
  232. }
  233.  
  234. function enableHostGame()
  235. {
  236.     %valid = TRUE;
  237.  
  238.     //check the max number of players
  239.     if ($Server::MaxPlayers < 1 || $Server::MaxPlayers > 128)
  240.     {
  241.         %valid = FALSE;
  242.     }
  243.  
  244.     //check the server name
  245.     if (String::empty($Server::HostName))
  246.     {
  247.         %valid = FALSE;
  248.     }
  249.  
  250.     //set the button state
  251.     Control::setActive("CreateServerNow", %valid);
  252. }
  253.  
  254. function verifyServerName()
  255. {
  256.     if (String::Empty(Control::getValue("CreateServerHostName")))
  257.     {
  258.         Control::setValue("CreateServerHostName", "TRIBES Server");
  259.     }
  260. }
  261.  
  262. function verifyMaxPlayers()
  263. {
  264.     if (Control::getValue(IDCTG_MAX_PLAYERS) < 1) Control::setValue(IDCTG_MAX_PLAYERS, 8);
  265.     else if (Control::getValue(IDCTG_MAX_PLAYERS) > 32) Control::setValue(IDCTG_MAX_PLAYERS, 32);
  266.     enableHostGame();
  267. }
  268.  
  269. function TrainingGui::onOpen()
  270. {
  271.    TextList::clear(TrainingMissionTextList);
  272.    for(%i = 0; %i < $MLIST::TypeCount; %i++)
  273.       if($MLIST::Type[%i] == "Training")
  274.          break;
  275.  
  276.    for(%j = 0; (%mis = getWord($MLIST::MissionList[%i], %j)) != -1; %j++)
  277.       TextList::addLine(TrainingMissionTextList, $MLIST::EName[%mis]);
  278.    
  279.     //sort the training mission text list
  280.     FGTextList::sort(TrainingMissionTextList);
  281.  
  282.    Control::setValue(TrainingMissionTextList, $pref::LastTrainingMission);
  283.    TrainingMissionTextList::onAction();
  284.  
  285.    %prev = getWord($MLIST::MissionList[%i], 0);
  286.    %ml = $MLIST::MissionList[%i] @ %prev;
  287.    %prevName = $MLIST::EName[%prev];
  288.  
  289.     //update the record button
  290.     if (! $recordDemo) $recorderFileName = "";
  291.     Control::setValue(RecordDemo, $recordDemo);
  292. }
  293.  
  294. function MissionTypePopup::buildList()
  295. {
  296.    %sel = FGCombo::getSelected(MissionTypePopup);
  297.    TextList::clear(MissionTextList);
  298.  
  299.     //see if it gets added
  300.     %found = FALSE;
  301.    for(%i = 0; (%mis = getWord($MLIST::MissionList[%sel], %i)) != -1; %i++)
  302.     {
  303.       TextList::addLine(MissionTextList, $MLIST::EName[%mis]);
  304.         if ($MLIST::EName[%mis] == $pref::LastMission) %found = TRUE;
  305.     }
  306.  
  307.     //if the last mission selected was not added, choose the first in the list
  308.     if (%found == FALSE)
  309.     {
  310.        $pref::lastMission = $MLIST::EName[getWord($MLIST::MissionList[%sel], 0)];
  311.     }
  312.  
  313.     //DEMOBUILD - don't sort
  314.     //sort the mission text list
  315.     //FGTextList::sort(MissionTextList);
  316.  
  317.    Control::setValue(MissionTextList, $pref::LastMission);
  318.    $pref::lastMissionType = %sel;
  319.    MissionTextList::onAction();
  320. }
  321.  
  322. function DemoBuild::Init()
  323. {
  324.     //set the missionList vars
  325.    $MLIST::Count = 0;
  326.    $MLIST::TypeCount = 1;
  327.    $MLIST::Type[0] = "Demo";
  328.    $MLIST::MissionList[0] = "";
  329.  
  330.     DemoBuild::addMission("missions\\FogOfWar");
  331.     DemoBuild::addMission("missions\\Towers");
  332.     DemoBuild::addMission("missions\\Raindance");
  333.  
  334.     //also set the nextMissionvars
  335.     $nextMission[Raindance] = "Towers";
  336.     $nextMission[Towers] = "FogOfWar";
  337.     $nextMission[FogOfWar] = "Raindance";
  338. }
  339.  
  340. function DemoBuild::addMission(%mission)
  341. {
  342.     echo("in demobuild::addmission: " @ %mission);
  343.    $MDESC::Type = "";
  344.    $MDESC::Name = "";
  345.    $MDESC::Text = "";
  346.  
  347.    if (String::findSubStr(%mission,".dsc") == -1)
  348.       %mission = %mission @ ".dsc";
  349.    exec(%mission);
  350.     $MDESC::Type = "Demo";
  351.  
  352.    if($MDESC::Type == "")
  353.       return false;
  354.  
  355.    for(%i = 0; %i < $MLIST::TypeCount; %i++) {
  356.       if($MLIST::Type[%i] == $MDESC::Type)
  357.          break;
  358.    }
  359.    if(%i == $MLIST::TypeCount) {
  360.       $MLIST::Type[%i] = $MDESC::Type;
  361.       $MLIST::TypeCount++;
  362.       $MLIST::MissionList[%i] = "";
  363.    }
  364.    %ct = $MLIST::Count;
  365.    $MLIST::Count++;
  366.  
  367.    $MLIST::EType[%ct] = $MDESC::Type;
  368.    $MLIST::EName[%ct] = File::getBase(%mission);
  369.    $MLIST::EText[%ct] = $MDESC::Text;
  370.    $MLIST::MissionList[%i] = %ct @ " " @ $MLIST::MissionList[%i];
  371. }
  372.  
  373. function MissionTextList::onAction()
  374. {
  375.    $pref::lastMission = Control::getValue(MissionTextList);
  376.  
  377.    // find the mission number...
  378.    for(%i = 0; %i < $MLIST::Count; %i++)
  379.       if($MLIST::EName[%i] == $pref::lastMission)
  380.          break;
  381.  
  382.    Control::setValue(MissionDescText, $MLIST::EText[%i]);
  383.  
  384. }
  385.  
  386. function TrainingMissionTextList::onAction()
  387. {
  388.    $pref::lastTrainingMission = Control::getValue(TrainingMissionTextList);
  389.  
  390.    // find the mission number...
  391.    for(%i = 0; %i < $MLIST::Count; %i++)
  392.       if($MLIST::EName[%i] == $pref::lastTrainingMission)
  393.          break;
  394.  
  395.    Control::setValue(MissionDescText, $MLIST::EText[%i]);
  396.  
  397. }
  398. //--------------------------------------------------------------------------------------------------
  399. function JoinGameGui::onOpen()
  400. {
  401.     //now clear the list, and re-enter it
  402.     FGCombo::clear(JoinGameBuddyCombo);
  403.  
  404.     %i = 0;
  405.     while ($pref::buddyList[%i] != "")
  406.     {
  407.        FGCombo::addEntry(JoinGameBuddyCombo, $pref::buddyList[%i], %i);
  408.         %i++;
  409.     }
  410.  
  411.     Control::setValue(JoinGameBuddyList, $pref::buddyList);
  412. }
  413.  
  414. function JGBuddyCombo::select()
  415. {
  416.    %sel = FGCombo::getSelected(JoinGameBuddyCombo);
  417.     $pref::buddyList = $pref::buddyList[%sel];
  418.     Control::setValue(JoinGameBuddyList, $pref::buddyList[%sel]);
  419.  
  420.     //push the selected to the top of the combo
  421.     for (%i = %sel; %i > 0; %i--)
  422.     {
  423.         $pref::buddyList[%i] = $pref::buddyList[%i - 1];
  424.     }
  425.     $pref::buddyList[0] = $pref::buddyList;
  426.  
  427.     //now recreate the combo
  428.     JoinGameGui::onOpen();
  429.  
  430.     Server::ResortList(IDCTG_SERVER_SELECT_LIST);
  431. }
  432.  
  433. function updateBuddyList()
  434. {
  435.     $pref::buddyList = Control::getValue(JoinGameBuddyList);
  436.  
  437.     //if we're searching for a new buddy, push it at the front of the list, and bump the rest down
  438.     if ($pref::buddyList != $pref::buddyList[0] && $pref::buddyList != "")
  439.     {
  440.         for (%i = 15; %i > 0; %i--)
  441.         {
  442.             $pref::buddyList[%i] = $pref::buddyList[%i - 1];
  443.         }
  444.         $pref::buddyList[0] = $pref::buddyList;
  445.  
  446.         //now recreate the combo
  447.         JoinGameGui::onOpen();
  448.     }
  449.  
  450.     Server::ResortList(IDCTG_SERVER_SELECT_LIST);
  451. }
  452.  
  453. function JGNewServer::verify()
  454. {
  455.     %name = Control::getValue(JoinGameNewServerName);
  456.     %address = Control::getValue(JoinGameNewServerAddress);
  457.  
  458.     if (%name != "" && %address != "")
  459.     {
  460.         Control::setActive(DialogReturnButton, TRUE);
  461.     }
  462.     else
  463.     {
  464.         Control::setActive(DialogReturnButton, FALSE);
  465.     }
  466. }
  467.  
  468. function JGNewServer()
  469. {
  470.     %name = Control::getValue(JoinGameNewServerName);
  471.     %address = Control::getValue(JoinGameNewServerAddress);
  472.     echo("DEBUG: " @ %name @ " " @ %address);
  473.  
  474.     addGameServer(%address, %name, "N/A", "-1", "TRUE");
  475.     GuiPopDialog(MainWindow, 0);
  476. }
  477.  
  478. //--------------------------------------------------------------------------------------------------
  479.  
  480. function RecordingsGui::onOpen()
  481. {
  482.     $RecordingsCount = 0;
  483.    EvalSearchPath();
  484.     TextList::clear(RecordingsTextList);
  485.    %rec = File::FindFirst("*.rec");
  486.    while(%rec != "")
  487.    {
  488.       %demo = File::getBase(%rec);
  489.       TextList::addLine(RecordingsTextList, %demo);
  490.       %rec = File::FindNext("*.rec");
  491.  
  492.         $Recording[$RecordingsCount] = %demo;
  493.         $RecordingsCount++;
  494.    }
  495.     RecordingsGui::verify();
  496.     FGTextList::sort(RecordingsTextList);
  497.     Control::setValue(RecordingsContinuous, $pref::RecordingsContinuous);
  498. }
  499.  
  500. function RecordingsGui::verify()
  501. {
  502.     if (Control::getValue(RecordingsTextList) == "")
  503.     {
  504.         %selected = FALSE;
  505.     }
  506.     else
  507.     {
  508.         %selected = TRUE;
  509.     }
  510.     Control::setActive(RecordingsRemove, %selected);
  511.     Control::setActive(RecordingsRename, %selected);
  512.     Control::setActive(RecordingsPlayDemo, %selected);
  513. }
  514.  
  515. function RecordingsGui::PlayDemo()
  516. {
  517.     %fileName = "recordings\\" @ Control::getValue(RecordingsTextList) @ ".rec";
  518.     if (isFile(%fileName))
  519.     {
  520.         $PlayingDemo = TRUE;
  521.       if ($timeDemo == true) {
  522.            timeDemo("recordings\\" @ Control::getValue(RecordingsTextList) @ ".rec");
  523.        } else {
  524.           playDemo("recordings\\" @ Control::getValue(RecordingsTextList) @ ".rec");
  525.        }
  526.         cursorOn(MainWindow);
  527.        GuiLoadContentCtrl(MainWindow, "gui\\Loading.gui");
  528.         renderCanvas(MainWindow);
  529.     }
  530.     else
  531.     {
  532.         RecordingsGui::onOpen();
  533.     }
  534. }
  535.  
  536. function RecordingsGui::TimeDemo()
  537. {
  538.     %fileName = "recordings\\" @ Control::getValue(RecordingsTextList) @ ".rec";
  539.     if (isFile(%fileName))
  540.     {
  541.         $PlayingDemo = TRUE;
  542.         timeDemo("recordings\\" @ Control::getValue(RecordingsTextList) @ ".rec");
  543.         cursorOn(MainWindow);
  544.         GuiLoadContentCtrl(MainWindow, "gui\\Loading.gui");
  545.         renderCanvas(MainWindow);
  546.     }
  547.     else
  548.     {
  549.         RecordingsGui::onOpen();
  550.     }
  551. }
  552.  
  553. function RecordingsGui::removeSelectedDemo()
  554. {
  555.     if (Control::getValue(RecordingsTextList) != "")
  556.     {
  557.         %srcFile = "recordings\\" @ Control::getValue(RecordingsTextList) @ ".rec";
  558.  
  559.         //delete the file
  560.         File::delete(%srcFile);
  561.  
  562.         //now repopulate the list
  563.         RecordingsGui::onOpen();
  564.     }
  565. }
  566.  
  567. function RecordingsGui::renameSelectedDemo()
  568. {
  569.     //first copy the old
  570.     %newName = Control::getValue(RenameDemoText);
  571.     if (Control::getValue(RecordingsTextList) != "" && %newName != "")
  572.     {
  573.         %srcFile = "recordings\\" @ Control::getValue(RecordingsTextList) @ ".rec";
  574.         if (String::findSubStr(%newName, ".rec") >= 1)
  575.         {
  576.             %destFile = "recordings\\" @ %newName;
  577.         }
  578.         else
  579.         {
  580.             %destFile = "recordings\\" @ %newName @ ".rec";
  581.         }
  582.  
  583.         //copy the file
  584.         if (File::copy(%srcFile, %destFile))
  585.         {
  586.             //delete the old
  587.             File::delete(%srcFile);
  588.  
  589.             //now repopulate the list
  590.             RecordingsGui::onOpen();
  591.  
  592.             //reselect the new name
  593.             TextList::setSelected(RecordingsTextList, %newName);
  594.             RecordingsGui::verify();
  595.             GuiPopDialog(MainWindow, 0);
  596.         }
  597.         else
  598.         {
  599.             GuiPopDialog(MainWindow, 0);
  600.             GuiPushDialog(MainWindow, "gui\\MessageDialog.gui");
  601.             Control::setValue(MessageDialogTextFormat, "Unable to save recording as <f1>" @ %newName @ ".<f0>  Please ensure the new name is a valid file name.");
  602.         }
  603.     }
  604. }
  605.  
  606. function RenameDemoText::onAction()
  607. {
  608.     if (! String::empty(Control::getValue(RenameDemoText)))
  609.     {
  610.         Control::setActive(IDCTG_RENAME_DEMO_DONE, TRUE);
  611.     }
  612.     else
  613.     {
  614.         Control::setActive(IDCTG_RENAME_DEMO_DONE, FALSE);
  615.     }
  616. }
  617.  
  618. function RecordingsGui::playRandom()
  619. {
  620.     if ($RecordingsCount > 0 && $pref::RecordingsContinuous)
  621.     {
  622.         %randomNum = floor(getRandom() * ($RecordingsCount - 0.01));
  623.         Control::setValue(RecordingsTextList, $Recording[%randomNum]);
  624.         RecordingsGui::PlayDemo();
  625.     }
  626. }
  627.  
  628. //--------------------------------------------------------------------------------------------------
  629.  
  630. // button names are favbutton1...favbutton5, markfavoritesButton, buyFavoritesButton
  631.  
  632. function BuyList::onSelect(%sel)
  633. {
  634.    ShapeView::setItem(ItemView, %sel);
  635.    //echo(%sel);
  636. }
  637.  
  638. function BuyList::onDoubleClick(%sel)
  639. {
  640.    remoteEval(2048, "buyItem", %sel);
  641.    //echo("BuyD " @ %sel);
  642. }
  643.  
  644. function InventoryList::onSelect(%sel)
  645. {
  646.    ShapeView::setItem(ItemView, %sel);
  647. }
  648.  
  649. function InventoryList::onDoubleClick(%sel)
  650. {
  651.    remoteEval(2048, "sellItem", %sel);
  652.    //echo("InvD " @ %sel);
  653. }
  654.  
  655. function CmdInventoryGui::sellSelected()
  656. {
  657.    %sel = Control::getValue(InventoryList);
  658.    if(%sel != -1)
  659.       remoteEval(2048, "sellItem", %sel);
  660. }
  661.  
  662. function CmdInventoryGui::dropSelected()
  663. {
  664.    %sel = Control::getValue(InventoryList);
  665.    if(%sel != -1)
  666.       remoteEval(2048, "dropItem", %sel);
  667. }
  668.  
  669. function CmdInventoryGui::useSelected()
  670. {
  671.    %sel = Control::getValue(InventoryList);
  672.    if(%sel != -1)
  673.       remoteEval(2048, "useItem", %sel);
  674. }
  675.  
  676. function CmdInventoryGui::buySelected()
  677. {
  678.    %sel = Control::getValue(BuyList);
  679.    if(%sel != -1)
  680.       remoteEval(2048, "buyItem", %sel);
  681. }
  682.  
  683. // ts control's name is ItemView
  684.  
  685. $curFavorites = -1;
  686.  
  687. function CmdInventoryGui::onOpen()
  688. {
  689.    if($curFavorites == -1)
  690.    {
  691.       CmdInventoryGui::favoritesSel(1);
  692.       Control::performClick("FavButton1");
  693.    }
  694. }
  695.  
  696. function CmdInventoryGui::favoritesSel(%favList)
  697. {
  698.    $curFavorites = %favList;
  699.    CmdInventory::setFavorites($pref::favoriteList[$curFavorites @ $ServerFavoritesKey]);
  700. }
  701.  
  702. function CmdInventoryGui::markFavorites()
  703. {
  704.    if($curFavorites != -1)
  705.    {
  706.       $pref::favoriteList[$curFavorites @ $ServerFavoritesKey] = CmdInventory::getVisibleSet(InventoryList);
  707.       CmdInventory::setFavorites($pref::favoriteList[$curFavorites @ $ServerFavoritesKey]);
  708.    }
  709. }
  710.  
  711. function CmdInventoryGui::buyFavorites(%fav)
  712. {
  713.    if(%fav != "")
  714.       $curFavorites = %fav;
  715.    if($curFavorites != -1)
  716.    {
  717.         //hilite the favs button
  718.         if ($curFavorites >= 1 && $curFavorites <= 5)
  719.         {
  720.             for (%i = 1; %i <= 5; %i++)
  721.             {
  722.                 %btnName = "FavButton" @ %i;
  723.               Control::setValue(%btnName, FALSE);
  724.             }
  725.             %btnName = "FavButton" @ $curFavorites;
  726.           Control::setValue(%btnName, TRUE);
  727.  
  728.             //and perform the click
  729.             CmdInventoryGui::favoritesSel($curFavorites);
  730.         }
  731.  
  732.       %fav = $pref::favoriteList[$curFavorites @ $ServerFavoritesKey];
  733.       %first = getWord(%fav, 0);
  734.       if(%first == -1)
  735.          return;
  736.  
  737.       %cmd = "remoteEval(2048, buyFavorites, " @ %first;
  738.       for(%i = 1; (%word = getWord(%fav, %i)) != -1; %i++)
  739.          %cmd = %cmd @ ", " @ %word;
  740.       %cmd = %cmd @ ");";
  741.       eval(%cmd);
  742.    }
  743. }
  744.  
  745. function ConnectGui::ChooseGame()
  746. {
  747.    if($pref::playGameMode == "JOIN")
  748.       GuiLoadContentCtrl(MainWindow, "gui\\joingame.gui");
  749.    else if($pref::playGameMode == "TRAIN")
  750.       GuiLoadContentCtrl(MainWindow, "gui\\training.gui");
  751.    else
  752.       GuiLoadContentCtrl(MainWindow, "gui\\createServer.gui");
  753. }
  754.  
  755. function LoadingGui::onOpen()
  756. {
  757.    Control::setValue(ProgressSlider, 0.0);
  758. }
  759.  
  760. //--------------------------------------------------------------------------------------------------
  761. function userCD ()
  762. {
  763.      $cdPlayMode = 2;
  764.     $pref::cdMusic = False;
  765.     $pref::userCDOverride = True;
  766.     rbStop (CD);
  767.     rbSetPlayMode (CD, $cdPlayMode);
  768.     rbPlay (CD, 1);
  769. }
  770.  
  771. function gameCD ()
  772. {
  773.     $pref::userCDOverride = False;
  774.     $pref::cdMusic = True;
  775.     rbStop (CD);
  776.     $cdPlayMode = 0;
  777.     rbSetPlayMode (CD, $cdPlayMode);
  778.     rbPlay (CD, 2);
  779. }
  780.  
  781. //--------------------------------------------------------------------------------------------------
  782. function LobbyGui::onOpen()
  783. {
  784.     Control::setValue(LobbyServerName, $ServerName);
  785.     Control::setValue(LobbyServerType, $ServerMod);
  786.     Control::setValue(LobbyMissionName, $ServerMission);
  787.     Control::setValue(LobbyMissionType, $ServerMissionType);
  788.     Control::setValue(LobbyVersion, $ServerVersion);
  789.     Control::setValue(LobbyAddress, $Server::Address);
  790.  
  791.    Control::setValue(LobbyServerText, $ServerInfo);
  792.    Control::setValue(LobbyMissionDesc, $ServerText);
  793. }